plotly::ggplotly(p = readd(Reff_nat_plot_hosp), dynamicTicks = T)
plotly::ggplotly(p = readd(Reff_region_plot_hosp), dynamicTicks = T)
readd(input) %>%
select(Region = region_name, dep) %>% distinct() %>%
inner_join(y = readd(Situation_region_hosp), by = "Region") %>%
do_Carte(Carte = readd(Carte), N = 10)
do_Carte(Carte = readd(Carte),
Situation = readd(Situation_dep_hosp),
N = 10)
plotly::ggplotly(p = readd(Reff_nat_plot_rea), dynamicTicks = T)
plotly::ggplotly(p = readd(Reff_region_plot_rea), dynamicTicks = T)
readd(input) %>%
select(Region = region_name, dep) %>% distinct() %>%
inner_join(y = readd(Situation_region_rea), by = "Region") %>%
do_Carte(Carte = readd(Carte), N = 10)
do_Carte(Carte = readd(Carte),
Situation = readd(Situation_dep_rea),
N = 10)
readd(output_urbaines) %>%
CartO(selon = LOW) +
labs(subtitle = paste("Hypothèse basse", lubridate::today()))+
geom_sf(data = readd(Dept), alpha = 0)
readd(output_urbaines) %>%
CartO(selon = HIGH) +
labs(subtitle = paste("Hypothèse haute", lubridate::today()))+
geom_sf(data = readd(Dept), alpha = 0)